home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
hauptstadt quiz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
10 letn=28:letw=0:letr=0:fori=1ton:readx$,y$
20 print"[147]hauptstadt quiz 1988 by frank fenske":print:print
30 print"wie heisst die hauptstadt von/der":print:print" ";x$;"?":print
40 input z$ :print
50 ify$=z$then let r=r+1:print"richtig ";y$;"":forf=0to500:nextf:print:nexti
60 ify$<>z$then let w=w+1:print"falsch ";y$;"":forf=0to500:nextf:print:nexti
70 print"sie wurden ";n;"mal gefragt":print"sie gaben ";r;" richtige antworten"
80 print"sie gaben ";w;" falsche antworten"
90 print"das wars leute run oder reset"
100 data"australien", "canberra":data"u.s.a.","washington"
110 data"japan","tokyo":data"tuerkei","ankara":data"spanien","madrid"
120 data"deutschland","bonn":data"china","peking":data"aegypten","kairo"
130 data"u.d.s.s.r","moskau":data"oesterreich","wien":data"england","london"
140 data"iran","teheran":data"schweden","stockholm":data"daenemark","kopenhagen"
150 data"israel","jerusalem":data"kanada","ottawa":data"lichtenstein","vaduz"
160 data"thailand","bangkok":data"ungarn","budapest":data"libanon","beirut"
170 data"algerien","algier":data"chile","santiago":data"cuba","havanna"
180 data"griechenland","athen":data"irland","dublin":data"italien","rom"
190 data"wer schrieb dieses programm","frank fenske"
200 data"wann wurde dieses programm geschrieben","1988"